home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / VESAP800.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  703b  |  54 lines
  1. $INCLUDE "REGNAMES.INC"
  2. DEFINT a-Z
  3.  
  4. OPEN "D:\Newton.CDT" FOR BINARY AS #1
  5.  
  6. ON BREAK GOTO ende
  7.  
  8. REG %AX,(&H4F*256)+2
  9. REG %BX,&H103
  10. CALL INTERRUPT &H10
  11.  
  12. for i=0 to 255
  13.  r=i
  14.  g=0
  15.  b=0
  16.  REG %CX,(g*256)+b
  17.  REG %DX,(r*256)
  18.  REG %AX,(&H10*256)+&H10
  19.  REG %BX,i
  20.  CALL INTERRUPT &H10
  21. next
  22. beep
  23.  
  24. GET$ #1,8,d$
  25.  
  26. DEF SEG = &HA000
  27. f=0 : p&=0 : s=0
  28. FOR y=1 to 600
  29.  GET$ #1,800,d$
  30.  for x=1 to 800
  31.   POKE p&,ASC(MID$(d$,x,1))
  32.   p&=p&+1
  33.   if p&>65535 then
  34.    s=s+1
  35.    REG %AX,(&H4F*256)+5
  36.    REG %BX,0
  37.    REG %DX,s
  38.    CALL INTERRUPT &H10
  39.    p&=0
  40.   end if
  41.  next
  42.  f=f+0.5
  43.  if f>254 then f=0
  44. NEXT
  45. ende:
  46. CLOSE #1
  47. BEEP
  48.  
  49. WHILE INKEY$="":WEND
  50. SCREEN 0
  51. CLS
  52. ?"<< Taste >>"
  53. END
  54.